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Ces deux cassettes rendent vos logiciels 
compatible poignée de jeux et compati- 
ble Atmos (face 1 Oric 1, face 2 Atmos). 
Joystick adapter 1 

Avec cette cassette vous profiterez plei- 
nement de vos jeux favoris. Enfin Ultra, 
Zorgon, Harrier attack, Hopper et Oric 
Munch sur poignée de jeux. 120 F. 
Joystick adapter 2 

Xenon, Hunchback, Mushroom, Ache- 
ron's, Dracula, Light cycle sur poignée 
de jeux. 120 F. 


Enajoutantla profondeur Morplon: D renouvelle le plaisir 
pro eue four Bus déco TE 











Si vous tirez de bonnes ca 

ut" le bas. Une quai 
sont rondes, pas cordes. 
iesfeux de mémo! 






shabille 
un femme vous procurera beaucoup de 
plaisir. À goûter entre amis. 120F. 


ip 21, Hopper, Th lunchback, Harri 
Mushroom, Light cycle, Acheron's rage, Dracula, 
Munch. Compatible  120F. 











La traite des blanches ! Lilla est enlevée. À vous de la 


{animé permet de créer un 
retrouver, Toutes Vos réponses sont admises et RD nTÉ 


fichier: je VoUs pouvez faire évoluer sur l'écran, 
Livré avec une notice d'utilisation, 120F, 











valable un mois à compter de la 
date de parution de ce magazine. 
Oric-Atmos + péritel + 2 poignées 
de jeux + interface : 2 990 F. 


Service après-vente assuré par nos soins. 


lac corrs 



















































































Nom = __ Prénom = 
e Joystick adapter | AZO F. a —— 
e Joystick adapter 2 120F. Tél Date 
e Strip 21 A120F. Signature Comet comptent à a commande por chaue 
°Mémo-strip A 20F. Frais d'envoi quel que soit le nombre 
e Compatible 120€. de cossettes choisi: 15F, 
* Morpion 3 D AZOF. _— Pour le colis Offre spéciale”: 45F. 
e Les aventures de Lilla AZOF. 
Les aventures de Lilla [cl 120. Fw1: 
Initiation au dessin animé 120€. T2 
e ORIC ATMOS OFFRE SPÉCIALE Za00f. Mi 
e Le catalogue de vos autres matériels et logiciels| GZAUIT | 
Fe TOTAL 
TT.C. 15, Chaussée de l'Hôtel-de-Ville 


59650 Villeneuve d'Ascq (20) 47.18.57 














Analyse des 


programmes des Maîtres 


DEPIAUTONS LE PLONGEUR 
suite) 


Où en sommes-nous ? 

Dans LED MICRO n°5, notre ami Jean Hiraga vous pré- 
sentait un programme élaboré par Harumi Takahashi une 
étudiante japonaise de 15 ans. Ce programme était 
rédigé en BASIC pour l'ordinateur NEC type PC 8001. 
Ce programme constitue la première pierre de notre 
«Coin des Fortiches» et inaugure la rubrique «étudions les 
Programmes de nos Maîtres». L'analyse globale de ce 
programme a été faite dans le LED MICRO n°8, et a 
abouti à l'obtention de son organigramme (page 60). 


Traduction sur ORIC et en «structuré» 

Pour analyser «le plongeur» j'ai commencé à le traduire 
sur l'ordinateur que j'avais sous la main, à savoir un ORIC 
ATMOS. Mais au lieu de traduire «mot à mot» le pro- 
gramme de Harumi Takahaski, je l'ai restructuré entière- 
ment de façon un peu «Pascalienne». L'encadré «archi- 
tecture de programme» (page ci-contre) vous présente 
cette nouvelle forme dans laquelle un programme princi- 
pal (lignes 1 000 à 1 490) ne fait qu'aller chercher des 
Sous-programmes spécialisés. 


Autre idée de base de cette transcription : j'ai séparé 
(lignes 100 à 1 000) tout ce qui était spécifique à l'ORIC 
définition de l'écran). Dans les prochains numéros consa- 
crés au plongeur, nous traduirons ce même programme 
sur les micro-ordinateurs les plus répandus en France : 
SINCLAIR, COMMODORE, APPLE, TRS 80, LASER (peut- 
être IBM PC). Il nous suffira de modifier les parties spécifi- 
ques du programme le reste étant constitué du BASIC «de 
base» 
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Si au lieu d'avoir un ORIC ATMOS, vous utilisez un ORIC 
1, il vous suffira d'ajouter au programme (décrit pages 
suivantes) les huit lignes de la page ci-contre (intitulées 
Variante ORIC 1). 


Rappel des règles du jeu 

Vous êtes un plongeur et vous devez remonter des tré- 
sors enfouis au fond de la mer et recouverts de sable. 
Mais cette mer est infectée de requins. 

Bien entendu il faut remonter du sable avant de remonter 
les trésors. De plus il n'est possible de tuer les requins 
que de face et surtout uniquement en tirant dans la 
nageoire dorsale (ce n'est pas très évident). 

Chaque fois que vous remontez 3 trésors, vous avez droit 
à une vie supplémentaire. 

Les touches nécessaires pour jouer sont : 

— espace pour tirer 

— flèche vers la droite pour pointer l'arme à droite 

— flèche vers la gauche pour pointer l'arme à gauche 
— flèche vers le haut pour monter 

— flèche vers le bas pour descendre 


Dans les prochains numéros 

Nous étudierons les détails des programmes et sous- 
programmes dans les diverses variantes à partir de la 
«nouvelle structure» que nous vous proposons dans les 
pages 3 et 4 de cet article. 


Chaque programme — exemple sera l'occasion d'appro- 
fondir plus particulièrement une notion de base. Avec «le 
plongeur», nous étudierons les codes de contrôle 
d'écran. 





CT RSI:RAE,, 8 1 





Fig. 1 


C:SCORE 1851 < DIVER > C:MAX 


Fig. 2 





VARIABLES PARTICULIERES 


X et Y : position du plongeur 

X1, Y1 et X2, Y2 : position des requins 

T : compteur de temps 

J : nombre de vies restant 

S et SC : score 

F et E: position du harpon 

H : boucle de déplacement du harpon 

B$ : sert à voir si le tir doit avoir lieu à droite 
ou à gauche. 

Z$ : contient les trésors 











VARIANTE ORIC 1 


1 REPEAT 

2 READ DTA 

3 POKE #400 + CL, DTA 

acLl'=CcL+1 

5 UNTILDTA = #FF 

6 DATA #20, #96, #D9, #AC, #F8, #02, 


#08, #8C, #69, #02, #15, #IF, #A4, #20, 


#85, #12, #84, #13 

7 DATA #A9, #3B, #20, #DB, #CF, #40, 
#61, #CB; #FF 

8 DOKE 2F5, #400 








5 
ARCHITECTURE DU PROGRAMME 


100-400 Initialisation 

400-700 Redéfinition des caractères 
700-1000 Présentation de l'écran 
1000-1490 Programme principal 


Sous programmes : 

1500-2500 enlèvement du sable 
2500-5000 affichage du plongeur 
5000-5050 requin gauche 

5050-5100 requin droite 

5100-5130 nouveau requin gauche 
5130-6000 nouveau requin droite 
6000-7000 routine de tir 

7000-7050 effacement du requin gauche 
7050-7200 effacement du requin droit 
7200-7500 affichage du score 
7500-8000 perte d'une vie 

8000-8200 prise des trésors 
8200-8250 remontée des trésors 
8250-8280 nouveau trésor 
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19? KA IIEORROERNE 


20 ’* LE PLONGEUR * 
30 ’* DE HARUMI TAKAHASKI * 
48 ’*X TRADUIT POUR ORIC 1 & ATMOS x* 
5a ?’x POUR * 
68 ’x LED HPACARIOEE 
278 ?’x PAR *x 
82 ’* MICHEL LOPEZ * 
se ? RON INR OR AO OOOOORE 
100: == INITIALISATION----------- 


118 CLS :PAPERO : INK 

120 PRINTCHRSCE6) ;CHR$(20) ;CHR$C12) 

138 PRINT@12, 11 ;CHR$C27)+"A" :PRINTE12, 1 
23CHR$C27)+"p" 

140 PRINTCHRSC4) :PRINT@13, 11 ;CHR$C273+" 
J'3CHRS(27)+" ‘5 "LE PLONGEUR" ;CHR$C4) 
158 WAIT5Q: ë :U=@ 

160 X=18:Y=11:3$="ml ":C$=" k “:as$="ppp 





400 ?----DEFINITION DES CARACTERES--- 
410 FORA=(46080+(3?x8))TO0((46080+(97X8) 
)+C1S3X8))STEP8 

428 FOR B=0T0? 

438 READ 2 

448 POKECA+B),2 

458 NEXTB 

468 NEXTA 

5e DATAG,0,0,0,30,18,18,18 

510 DATA18,18,18,18,30,18,18,18 

520 DATAG,0,0,0,14,4,4,4 

530 DATA63,63,63,63,63,63,63,63 

548 DATA63,63,63,31,15,7,3,1 

558 DATA30, 30, 30, 39, 30, 30, 30, 30 

560 DATA63,63,63,62,60,56,48, 32 

578 DATA12,18,33,0,0,9,0,@ 

588 DATAG,0,0,0,0,0,0,63 

590 DATAG,0,0,0,0,12,18,33 

608 DATAG,9,0,51,51,0,8,0 

618 DATA33,33,33,63,18,18,18,51 

628 DATA4,15,0,0,8,0,0,0 

639 DATA14,0,8,0,8,0,0,0 

640 DATA,0,0,0,0,12,30,63 

659 DATA, 38, 18,18, 18,18,30,@ 

668 DATA32,32,48,56,60,62,63,63 

670 DATA1,3,7,15,31,63,63;63,63 

688 DATA63,0,9,0,0,0,8,0 

690 DATAG,63,0,63,0,9,0,0 

PRONES === EGRANSE SE 
2719 CLS 

220 PRINT, 2 ;CHR$C4) 3CHRSC27)+ "A" ;CHRS 
(C27)+"J";"LE PLONGEUR" 

738 PRINT@19,2;CHR$C27)+"p" ;" 
ICHR$C22)+"F" ;CHRSCA) 

248 PRINT@28,5 ;CHR$(27)+"G" ;'a" 
758 PRINT@20, 6 ;CHRS(27)+"G" ;"b" 
768 PRINT@13,?;CHR$C27)+"E";" © à d c 


SCORE :" 





778 PRINT@13,8;CHR$SC27)+"C" ;"eddddddddd 
e" 


288 PRINT@1,9;CHR$C273+"D" ;"hhhhhhhhhhh 
h" 

738 PRINT@14,9;CHR$C27)+"G";"\itictti/" 
808 PRINT24,9;CHR$C27)+"D" ;"hhhhhhhhhh 
hh" 

818 FOR2=@TO16:PRINT@O, (18+2) ;CHR$C27)+ 
:NEXT2 

820 PRINT@13, 23 ;CHR$(27)+"B" ;"rdddddddd 
da" 

830 PRINTES, 24 ;CHR$(C22)+"B" ; "0 rdd 
€" 5CHR$C22)+"A" 

848 PRINTe18, 24 ;"ppp" 

858 PRINTE21,24 ;CHR$C22)+"8" ;"ddda 

mn 

868 PRINT@1, 25 ;CHR$(27)+"B";"ordddddaoo 
rdddddddddddddaoordddddao" 

878 GOSUB2500 

888 Y1=INTCRND(1)*10)+10:X1=4 

890 V2=INTCRND(1)*x18)+10:X2=34 

328 GOSUB5008 :60SUB525a 

918 PRINTe30,5;CHRSC27)+"A! ;J 

328 PRINT635,5 ;"UIES" 

1988 ?------- BOUCLE PRINCIPALE------- 
1018 FORT-0103008 :PLAYA, 14,4, 1008 

1020 AS=KEYS :A$-AS+" 1" :E=ASCCAS)I 








1925 THENGOTO1418 
1930 IFE=8THENB$="ml " 
1248 THENB$=" [m" 
1858 3 1FY>=22THENY=22 





1068 1FE=11THENY=Y-1 :1FY<=11THENY=11 

1078 1FE=321THEN GOSUB6000 

1938 GOSUB2580 

1108 GOSUB?208 :G0SUB?268 

1119 X1=X1411:X2=X2-1 

112@ IFX1=35THENGOSUB2000 

1138 IFX2=1STHENGOSUB2100 

1132 GOSUB5008 :GOSUB5850 

1148 GOSUB?280 

1150 IFX=X1ANDY=Y1THENGOSUB?508 

1168 IFX=X2ANDY=Y2THENGOSUB?500 

117@ IFX-1=X1ANDY=Y1 THENGOSUB?508 

1100 IF X-1=X2ANDY=Y2THENGOSUB?508 

1185 PRINTe31,5;J 

1208 1FX=18ANDY+2-23ANDU=@THENGOSUB 1 502 

1218 PRINT@18,24;2s 

1220 IFY=22ANDU <> GTHENGOSUB8202 

1225 1FY=11ANDU <> @THENGOSUB8200 

1230 IFU=8THENGOSUB8250 

1240 PRINT@18,24;2s 

1408 NEXTT 

1418 PRINT@13; 15 ;CHR$(27)+"C";"GAME OUE 
R" 

1428 PRINTR1@,17;"UNE AUTRE PARTIE?" 

1430 GET AS :IFAS © 'o "ANDAS ©) ‘'n‘"GOTO1432 

1448 1FA$="0"THENPRINTCHRSC6) ;CHRS (28) ; 
CHR$C12) :RUN 

1458 IFA: n'"THENPRINTCHRSC6) ;CHRS(20) ; 
CHRS$(17) :CLS :PAPER? : INKG :PING 

1498 END 
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Re 


1508 
15108 


@":Cs= 


1520 
2088 
2108 
2508 
2518 
2520 
2530 
2548 
2550 
2560 
Ssaea 
5818 
5028 
5038 
5a5a 
5060 
5870 
5080 
5100 
S119 
5120 
5130 
5140 
5150 
6900 
6a1ia 
6820 
6930 
6048 
6a5a 
686a 
6865 


‘3'rddd 


69066 
6a7a 
6e8a 
689 
6120 
6118 


‘ÿ"rddd 


6120 
6152 
6160 
6178 
6180 
6200 
6388 
7008 
?81a 
7828 
7030 
7050 
2064 
20878 
7088 





os: ENLEUEMENT DU SABLE---- 
PING:C$=CHR$S(27)+"A" :D$=CHR$C27)+" 
C$+"k"+D$:Uz1 

GOSUB2500 :RE TURN 

G0SUB?008 : GOSUBS 100 :RE TURN 
GOsUuB?950 : G0SUB5S 130 :RE TURN 





PRINT@X,Y-2;" : " 
PRINT@X; Y-13" j 
PRINT@X,Y  3C$ 
PRINTEX, T+1;B$ 
PRINT@X, Y125" 2! 
RETURN 


PRINT@X1;Y13"r" 
PRINT@CX1-2),CY1+1);"ardto" 
PRINT@CXI-2),CY1#2);"sssss" 
LS DS = D) REQUIN DROITE-- 
PRINT@X2,Y2;"r" 
PRINT@CX2-2),(Y2+1);"etdar" 
PRINT@CX2-2), CY2+2);"sssss" RETURN 
QT EE) NOUVEAU REQUIN GAUCHE--- 
Y1=INTCRNDC1)%x1@)+18:X1=4 

RETURN 

Pas ne NOUVEAU REQUIN DROITE--- 
Y2=INTCRNDC1)*X10)+18:x2=34 

RETURN 











1FB$="ml 
IFB4=" Lm'THEN6278 

E=Y+1 :D=X-2:2P :R=0 
FORH=0TO13:F=D-H:PRINTRF,E ;"- 
IFF=X1ANDE=Y 1 THEN615 
NEXTH:PRINTEF,E 5" 

IFUCATHEN PRINT@12, 23 ;CHR$C273+"B 
ddda" 

RETURN 

E=Y+1 :D2x+2:2AP :R=1 

FORH=GTO14 :F=D4H:PRINTF,E 5" -" 
1FF=X2ANDE=Y2THEN61 50 
NEXTH:PRINTRF,E5;" 

IFUGOTHEN PRINT@13, 23 ÿCHRS(272+"B 
ddda" 

RETURN 

SHOOT 

PRINT@F,E;"*X ":G=S+1 
1FR=2THENGOTO6200 
1FR=1THENGOTO6300 
G0SLB7000 :G0SUBS 100 :RETURN 
G0SUB7258 :GOSUBS 1 30 :RETURN 

Pa EFFACE REQUIN GALICHE----- 
PRINTEXI, Y15" 
PRINT@CXI-2), CY1+19 5" 











PRINT@CX1-2), CY1+2)5 "RETURN 
Press EFFACE REQUIN DROITE----- 
PRINT@X2,T2;" " 

PRINT@CX2-2), CY2r1);" 
PRINT@CX2-2), CY2+2); :RETURN 


?208 
?218 
2228 
7238 
2508 
2518 





RETURN 





EXPLODE :U=8:2$="ppp" :PRINTE16,23;" 


ddddddd" 


7528 
2530 
2548 
?558 
2568 
2570 
2580 
7598 
‘2628 
8000 
8005 
8006 
8007 
8008 
8014 
N 
8220 
x 
8030 
N 
8200 
8205 
8206 
8207 
8208 
8209 
8210 
JRN 
8220 
IRN 
823a 
JRN 
8240 
URN 
8258 
8268 


8270 

275 
da" 

8280 





PRINTEX, Y-23" 
PRINTEX, Y-15" À 
PRINTEX,T 3j" Ê 
PRINT@X, Y+15" 
PRINTEX, +25" 
G0SUB?000 :G0SUB?7050 
Xr18:Y=11: 
J=J-1 :PRINTE31,5;J:PRINTE14,6;"@" 
RETURN È 

----PRISE DES TRESORS------ 











1FU=41HENGOT 08020 

1FU-6THENGOT 08232 

RETURN 

2s="p p'PING:PING:T=Y-1 VS IRETUR 





2s=" p ":PING:PING:Y=Y-1 :U=5 :RETUR 
s=" “:PING:PING:Y=Y-1 :Uz7 :RETUR 
DE REMONTEE DES TRESORS- 
1FU-1THENGOTO8210 


IFU=3THENGOT 08222 

1FU=51HENGO1 08232 
JFU=?1HENGOTO8248 

RETURN 

PING:PRINTE14,6;"@" :Uz2:S=S11D:RET 


PING:PRINT@14,6;"1":U=4:S=S118:RET 


PING:PRINT@14,6; 2':U=6:S=S+1B:RET 


PING:PRINT@16,6;"3":Vr8:S-S+1D:RET 


PLAT1, 9999, 3,99 :UAIT50 :PLAYO,0,0,0 


2$="ppp"IU=0:J=J4] 
PRINT@13;23;CHRSC27)+ 





B'';"rddddddd 


URN 
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